Міністерство освіти і науки України
Хмельницький національний університет
Кафедра системного програмування
Лабораторна робота №6
з програмування
на тему:
«Розробка складних додатків з використанням графіки»
Лабораторна робота №6
Тема: Розробка складних додатків з використанням графіки.
Мета:ознайомитись з графічними можливостями середовища Delphi та навчитись їх застосовувати за призначенням.
Завдання
Розробити графічний редактор з можливостями кисті та заливки, який може працювати з графічними файлами (відкрити, зберегти) та містить головне меню з пунктами “Файл”, “Формат ”, “Про програму”. Пункт меню “Файл” містить підпункти “Відкрити”, “Зберегти”, “Вихід”. Пункт меню “Формат” містить підпункти редагування розміру кисті та кольору.
Project1.lpr
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1, LResources, Printer4Lazarus
{ you can add units after this };
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
{$I project1.lrs}
Application.Title:='Текстовий редактор';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Unit1.pas
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Menus, StdCtrls, ExtCtrls, Spin;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton; Button2: TButton; Button3: TButton;
ColorDialog1: TColorDialog;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem; MenuItem2: TMenuItem; MenuItem3: TMenuItem;
MenuItem4: TMenuItem; MenuItem5: TMenuItem; MenuItem6: TMenuItem;
MenuItem7: TMenuItem; MenuItem8: TMenuItem; MenuItem9: TMenuItem;
MenuItem10: TMenuItem; MenuItem11: TMenuItem; MenuItem12: TMenuItem;
MenuItem13: TMenuItem; MenuItem14: TMenuItem; MenuItem15: TMenuItem;
MenuItem16: TMenuItem; MenuItem17: TMenuItem; MenuItem18: TMenuItem;
OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog;
PaintBox1: TPaintBox;
SpinEdit1: TSpinEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
procedure MenuItem10Click(Sender: TObject);
procedure MenuItem11Click(Sender: TObject);
procedure MenuItem12Click(Sender: TObject);
procedure MenuItem13Click(Sender: TObject);
procedure MenuItem14Click(Sender: TObject);
procedure MenuItem15Click(Sender: TObject);
procedure MenuItem16Click(Sender: TObject);
procedure MenuItem17Click(Sender: TObject);
procedure MenuItem18Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure MenuItem9Click(Sender: TObject);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure PaintBox1Paint(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var Form1: TForm1; StartX, StartY,a:integer;
pn,sv:boolean; clr:TColor; BM,BMt:TBitmap;
FName,FLoad:string; SRect, DRect: TRect;
implementation
{ TForm1 }
procedure TForm1.MenuItem4Click(Sender: TObject); //відкрити
begin
if not sv then MenuItem5Click(Sender);
OpenDialog1.Filter:='Bitmap|*.bmp|All|*.*';
if OpenDialog1.Execute then
begin sv:=false;
FLoad:=OpenDialog1.FileName;
BMt:=TBitmap.Create;
BMt.LoadFromFile(FLoad);
PaintBox1.Canvas.Clear; BM.LoadFromFile(FLoad);
PaintBox1.Width:=BMt.Width;
PaintBox1.Height:=BMt.Height;
PaintBox1.Canvas.Draw(0,0,BM);
BMt.Free;
end;
end;
procedure TForm1.MenuItem5Click(Sender: TObject); //збере...
